home *** CD-ROM | disk | FTP | other *** search
- // $Id: scroller.cc 1.2 1997/07/14 04:23:32 dlorre Exp dlorre $
-
- #include <exec/lists.h>
- #include <libraries/gadtools.h>
-
- #include "gadgets/scroller.h"
- #include "gadgetlist.h"
-
- #include <proto/gadtools.h>
-
- // ========================================================================
- // ========================== SCROLLER CLASS =============================
- // ========================================================================
-
-
- scroller::scroller(gadgetlist *gl,
- void (window::*func)(gadget *, unsigned long, unsigned short),
- long top, long view, long total,
- unsigned short arrows) : gadget(gl, func)
- {
- gad = gl->gad = CreateGadget(SCROLLER_KIND, gl->gad, gl->ng,
- GTSC_Top, top,
- GTSC_Total, total,
- GTSC_Visible, view,
- GTSC_Arrows, arrows,
- GT_Underscore, '_',
- TAG_END) ;
- }
-
-
-